﻿module Common

let internal foldStrings delimiter strings = 
        if Seq.isEmpty strings 
            then ""
            else strings |> Seq.reduce(fun acc str -> acc + delimiter + str)